00100	TITLE TRIG
00200	OPDEF JCALL[35B8]
00300	OPDEF CALL[34B8]
00400	P←14
00500	A←1
00600	B←2
00700	EXTERN MAKNUM,NUMVAL,SQRT,FLONUM,COS,SIN,ATAN
00740	INTERNAL COSINE,SINE,SQR,ARCTAN
00800	DEFINE FUN (LTAG,FTAG)
00900	{LTAG:	CALL 1,NUMVAL
01000		MOVEM A,AR1
01040		MOVEM BLT1
01100		MOVE [XWD 1,BLT1+1]
01200		BLT BLT1+17
01300		JSA 16,FTAG
01400		JUMP 2,AR1
01450		MOVEM AR1
01500		MOVE [XWD BLT1+1,1]
01600		BLT 17
01640		MOVE BLT1
01700		MOVE A,AR1
01800		MOVEI B,FLONUM
01900		JCALL 2,MAKNUM⎇
02000	
02100	AR1:	0
02200	BLT1:	BLOCK 20
02300	FUN(SINE,SIN)
02400	FUN(COSINE,COS)
02500	FUN(SQR,SQRT)
02540	FUN(ARCTAN,ATAN)
02600	END